﻿Imports SISSAT.BusinessLayer.Services

Namespace Views
    Public Class SubjectPresenter

        Private Property View As ISubjectView
        Private Property Service As ISubjectService

        Public Sub New(view As ISubjectView)
            Service = New SubjectService
            Me.View = view
            AddHandler Me.View.OnInitialization, AddressOf OnInitialization
        End Sub

        Private Sub OnInitialization()
            Me.View.RepeaterDataSource = From entity In Service.ReadAll()
        End Sub

    End Class
End Namespace

